home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Adressübersicht.adrpri next >
Text File  |  1999-03-27  |  4KB  |  210 lines
  1. 3$VER: Adresseübersicht 1.04 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.04
  6. %%Title: (MT-RechnungIII - Adressübersicht)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: Label
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89.  
  90. %% Definition der Überschrift
  91. /Ueberschrift
  92. {
  93.     /BoxX1 DokumentRandX def
  94.     /BoxX2 486 def
  95.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  96.     /BoxY2 Times10Zeile Times10Zeile add def
  97.  
  98.     0.9 setgray
  99.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  100.     0.0 setgray
  101.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  102.  
  103.     DokumentRandX 3 add DokumentRandY moveto
  104.     (AdressNr) show
  105.  
  106.     DokumentRandX 50 add DokumentRandY moveto
  107.     (Firma/Name) show
  108.  
  109.     DokumentRandX 200 add DokumentRandY moveto
  110.     (Straße) show
  111.  
  112.     DokumentRandX 350 add DokumentRandY moveto
  113.     (Ort) show
  114.  
  115.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  116.  
  117.     DokumentRandX 50 add DokumentRandY moveto
  118.     (Telefon) show
  119.  
  120.     DokumentRandX 200 add DokumentRandY moveto
  121.     (Fax) show
  122.  
  123.     DokumentRandX 350 add DokumentRandY moveto
  124.     (E-Mail) show
  125.  
  126.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  127.  
  128. } def
  129.  
  130. %% Ausgab der Kopfdaten
  131.  
  132. Times24 setfont
  133.  
  134. DokumentRandX 150 add DokumentRandY moveto
  135. (Adressübersicht) show
  136.  
  137. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  138.  
  139. Times10 setfont
  140.  
  141. Ueberschrift
  142.  
  143.  
  144. AdressenTabelle
  145. {
  146.     80 DokumentRandY gt
  147.     {
  148.         DokumentRandX 450 add 50 moveto
  149.         (Seite: ) show
  150.         Seite SeitenNr cvs show
  151.         showpage
  152.  
  153.         /DokumentRandY DokumentRandYOriginal def
  154.         Ueberschrift
  155.         Seite 1 add /Seite exch def
  156.     } if
  157.  
  158.     dup 0 get
  159.     DokumentRandX 3 add DokumentRandY moveto
  160.     show
  161.  
  162.     DokumentRandX 50 add DokumentRandY moveto
  163.     dup 10 get () gt
  164.     {
  165.         dup 9 get show
  166.         ( ) show
  167.         dup 10 get show
  168.     }
  169.     {
  170.         dup 11 get show
  171.     } ifelse
  172.  
  173.     dup 13 get
  174.     DokumentRandX 200 add DokumentRandY moveto
  175.     show
  176.  
  177.     DokumentRandX 350 add DokumentRandY moveto
  178.     dup 15 get show
  179.     ( ) show
  180.     dup 16 get show
  181.  
  182.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  183.  
  184.     dup 19 get
  185.     DokumentRandX 50 add DokumentRandY moveto
  186.     show
  187.  
  188.     dup 20 get
  189.     DokumentRandX 200 add DokumentRandY moveto
  190.     show
  191.  
  192.     22 get
  193.     DokumentRandX 350 add DokumentRandY moveto
  194.     show
  195.  
  196.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  197.  
  198. } forall
  199.  
  200. DokumentRandX 450 add 50 moveto
  201. (Seite: ) show
  202. Seite SeitenNr cvs show
  203.  
  204. showpage
  205.  
  206. %%Trailer
  207. clear
  208. %%EOF
  209.  
  210.